home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / rect.l < prev    next >
Text File  |  2007-02-28  |  139b  |  9 lines
  1. 9000 PROC RECT(L,W) CLOSED
  2. 9010 FOR J:=1 TO 2 DO
  3. 9020 FORWARD L
  4. 9030 RIGHT 90
  5. 9040 FORWARD W
  6. 9050 RIGHT 90
  7. 9060 ENDFOR J
  8. 9070 ENDPROC RECT
  9.